home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / BIO.DIR / 00235_Script_DoButtonBar - BIO < prev    next >
Text File  |  1996-04-01  |  1KB  |  40 lines
  1. on doBioSecondButtonBar H, V
  2.   put 280 into ButtonBarHeight
  3.   put 28 into OneButtonHeight
  4.   put 168 into ButtonBarTop
  5.   put (V - ButtonBarTop) / OneButtonHeight into ButtonIndex
  6.   
  7.   HiliteIndexChoice 0,ButtonIndex,1,10  
  8.   
  9.   if      ButtonIndex = 0 then goBioPage 11
  10.   else if ButtonIndex = 1 then goBioPage 12
  11.   else if ButtonIndex = 2 then goBioPage 12
  12.   else if ButtonIndex = 3 then goBioPage 14
  13.   else if ButtonIndex = 4 then goBioPage 14
  14.   else if ButtonIndex = 5 then goBioPage 15
  15.   else if ButtonIndex = 6 then goBioPage 16
  16.   else if ButtonIndex = 7 then goBioPage 17
  17.   else if ButtonIndex = 8 then goBioPage 18
  18.   else if ButtonIndex = 9 then goBioPage 19
  19. end doButtonBar
  20.  
  21. on doBioFirstButtonBar  H, V
  22.   put 280 into ButtonBarHeight
  23.   put 28 into OneButtonHeight
  24.   put 168 into ButtonBarTop
  25.   put (V - ButtonBarTop) / OneButtonHeight into ButtonIndex
  26.   
  27.  HiliteIndexChoice 0,ButtonIndex,1,10  
  28.   
  29.   if      ButtonIndex = 0 then goBioPage 1
  30.   else if ButtonIndex = 1 then goBioPage 2
  31.   else if ButtonIndex = 2 then goBioPage 3
  32.   else if ButtonIndex = 3 then goBioPage 4
  33.   else if ButtonIndex = 4 then goBioPage 6
  34.   else if ButtonIndex = 5 then goBioPage 7
  35.   else if ButtonIndex = 6 then goBioPage 8
  36.   else if ButtonIndex = 7 then goBioPage 9
  37.   else if ButtonIndex = 8 then goBioPage 9
  38.   else if ButtonIndex = 9 then goBioPage 10
  39. end doButtonBar
  40.